home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 34.zip / BS1 part 34 / GFA basic training.adf / Sound / SINUSWELLE.LST < prev    next >
File List  |  1989-06-01  |  376b  |  27 lines
  1. ' Sinuswelle
  2. '
  3. @init
  4. @abspielen
  5. END
  6. '
  7. PROCEDURE init
  8.   DIM wert&(255)
  9. RETURN
  10. '
  11. PROCEDURE abspielen
  12.   FOR j|=20 TO 120 STEP 20
  13.     factor|=j|
  14.     @sinuswelle         ! Neue Welle
  15.     FOR s&=300 TO 500 STEP 100
  16.       SOUND s&,12,255,0
  17.     NEXT s&
  18.   NEXT j|
  19. RETURN
  20. '
  21. PROCEDURE sinuswelle
  22.   FOR i|=0 TO 255
  23.     wert&(i|)=SIN(i|*2*PI/255)*factor|
  24.   NEXT i|
  25.   WAVE 0,wert&()
  26. RETURN
  27.